home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Pd / showiff.e < prev    next >
Encoding:
Text File  |  1994-12-01  |  2.3 KB  |  72 lines
  1. MODULE 'iff','libraries/iff','intuition/intuition','intuition/screens',
  2.        'exec/memory'
  3.  
  4. ENUM ER_NONE,ER_IFFLIB,ER_OPENIFF,ER_NOBMHD,ER_SCREEN,ER_WINDOW,ER_DECODE
  5.  
  6. DEF iff=NIL,s=NIL,ct[256]:ARRAY OF INT,bmhd,w=NIL:PTR TO window,
  7.     quit=FALSE,msg:PTR TO intuimessage,sprite=NIL
  8.  
  9. PROC main() HANDLE
  10.   /* Ouvre la biblihotèque en premier */
  11.   IF (iffbase:=OpenLibrary('iff.library',22))=NIL THEN Raise(ER_IFFLIB)
  12.  
  13.   /* arg = filename of IFF file */
  14.   IF (iff:=IfFL_OpenIFF(arg,IFFL_MODE_READ))=NIL THEN Raise(ER_OPENIFF)
  15.  
  16.   /* BMHD = BitMap HeaDer (contient les dimensions de l'image) */
  17.   IF (bmhd:=IfFL_GetBMHD(iff))=NIL THEN Raise(ER_NOBMHD)
  18.  
  19.   /* Ouvre l'écran avec les dimensions correctes */
  20.   IF (s:=OpenScreenTagList(NIL,
  21.     [SA_WIDTH,Int(bmhd),SA_HEIGHT,Int(bmhd+2),SA_DEPTH,Char(bmhd+8),
  22.      SA_DISPLAYID,IfFL_GetViewModes(iff),
  23.      0,0]))=NIL THEN Raise(ER_SCREEN)
  24.  
  25.   /* Ouvre une grande fenêtre inutile */
  26.   IF (w:=OpenWindowTagList(NIL,
  27.     [WA_LEFT,0,WA_TOP,0,WA_WIDTH,Int(bmhd),WA_HEIGHT,Int(bmhd+2),
  28.      WA_FLAGS,WFLG_SIMPLE_REFRESH OR WFLG_NOCAREREFRESH OR
  29.               WFLG_BORDERLESS OR WFLG_ACTIVATE,
  30.      WA_IDCMP,IDCMP_MOUSEBUTTONS OR IDCMP_RAWKEY,
  31.      WA_CUSTOMSCREEN,s,
  32.      NIL,NIL]))=NIL THEN Raise(ER_WINDOW)
  33.  
  34.   /* Efface le pinteur de la souris */
  35.   IF sprite:=AllocMem(20,MEMF_CHIP OR MEMF_CLEAR)
  36.     SetPointer(w,sprite,1,16,0,0)
  37.   ENDIF
  38.  
  39.   /* Fixe la palette de l'écran */
  40.   LoadRGB4(s+44,ct,IfFL_GetColorTab(iff,ct))
  41.  
  42.   /* Essaie de charger l'image */
  43.   IF (IfFL_DecodePic(iff,s+184))=FALSE THEN Raise(ER_DECODE)
  44.  
  45.   /* Attend que l'utilisateur appuie sur le bouton de la souris */
  46.   REPEAT
  47.     IF msg:=GetMsg(w.userport)
  48.       quit:=(msg.class AND (IDCMP_MOUSEBUTTONS OR IDCMP_RAWKEY))
  49.     ELSE
  50.       quit:=(Wait(-1) AND Shl(1,12))
  51.     ENDIF
  52.   UNTIL quit
  53.  
  54.   Raise(ER_NONE)
  55. EXCEPT
  56.   /* Nettoie */
  57.   IF w THEN CloseWindow(w)
  58.   IF sprite THEN FreeMem(sprite,20)
  59.   IF s THEN CloseScreen(s)
  60.   IF iff THEN IfFL_CloseIFF(iff)
  61.   IF iffbase THEN CloseLibrary(iffbase)
  62.  
  63.   /* Affiche les messages d'erreurs possible */
  64.   IF exception>0
  65.     WriteF('Error: \s.\n',
  66.       ListItem(['Pas de IFF.library','Ne peut ouvrir le fichier IFF',
  67.                 'Le fichier IFF n'a pa de bitmap header','Ne peut ouvrir l\aécran',
  68.                 'Ne peut ouvrir la fenêtre','Ne peut décoder l\aimage'],
  69.                 exception-1))
  70.   ENDIF
  71. ENDPROC
  72.